home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 July
/
EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso
/
earcd
/
biz
/
swood
/
fw_mef_e.lha
/
FW_MEf-e
/
ISeveral.fw
< prev
next >
Wrap
Text File
|
1997-04-27
|
4KB
|
190 lines
/* Optimized with RexxOpt 1.7 */
R='0A'X
Dre=0
Sei=0
Address='FinalW'
Options results
STATUS PORTNAME
FW=result
address=FW
SIGNAL ON BREAK_C
SIGNAL ON SYNTAX
'ShowMessage 2 1 "Insert Several V1.5e - 97/04/27" "© Heiko Schroeder" "E-Mail: age@thepentagon.com" "(-:" "Ok" "(-:"'
GetDocItemPrefs Decimal
Punkt=Result
If Punkt="Comma" then DocItemPrefs Decimal Period
GraphicTool
nr=1
CurrentObject
ObjectId=Result
IF ObjectId=0 THEN;do
'ShowMessage 1 1 "Macro: Insert Several" "A B O R T" "No graphical object selected..." "Okay" "" ""'
Call BREAK_C
End
Objekt.0=nr;Objekt.nr=ObjectID
FirstObject Selected
ID=result
Call Zaehlen
Do While 1
NextObject ID Selected
ID=result
If ID=0 then Leave
Call Zaehlen
End
If Objekt.0=1 then;do
gruppe=false
end
else gruppe=true
Do a=2 to Objekt.0
SelectObject Objekt.a MULTIPLE
End
SelectObject Objekt.1 MULTIPLE
STATUS View
Zoom=result
STATUS Pages
Seiten=result
STATUS Page
Seite=result
If Gruppe=true then Group
Copy
IF RC=0 THEN;do
CurrentObject
ObjectID=result
GetObjectCoords ObjectID
Parse var result Seite x y w h
wl=w
hl=h
GetObjectRotation ObjectID
Dreh=result
GetObjectType ObjectID
Typ=result
If Typ=2|Typ=3 then;do
If Seite~=1 then;do
'ShowMessage 1 1 "FW has problems with lines outside" "the page 1... CANCEL" "" "Okay" "" ""'
Call BREAK_C
End
End
If Gruppe=true then Ungroup
'ShowMessage 1 0 "Screen output?" "" "" "normal" "speed" ""'
ba=result
IF ba=2 THEN;DO
status WINDOW
parse VAR result links oben width height minwidth minheight maxwidth maxheight
sizewindow minwidth minheight
End
Do While 1
Result="ß"
RequestText '"Insert Several" "Number of copies" ""'
Anzahl=Result
If Anzahl="ß" then call Ende1
If Anzahl=""|Anzahl=0 then call Ende
If Datatype(Anzahl,'W')=1 then leave
else call oops
End
Do while 1
Result="ß"
RequestText '"Insert Several" "Horizontal displacement:" ""'
Hor=Result
If Hor="ß" then call Ende1
If Hor="" then Hor=0
If Datatype(Hor,'N')=1 then leave
else call oops1
End
Do while 1
Result="ß"
RequestText '"Insert Several" "Vertical displacement:" ""'
Ver=Result
If Ver="ß" then call Ende1
If Ver="" then Ver=0
If Datatype(Ver,'N')=1 then leave
else call oops1
End
If Typ~=2&Typ~=3 then;do
Do while 1
Result="ß"
RequestText '"Insert Several" "Rotation:" ""'
Dre=Result
If Dre="ß" then call Ende1
If Dre="" then Dre=0
If Datatype(Dre,'W')=1 then leave
else call oops
End
Do While 1
Result="ß"
RequestText '"Insert Several" "On which page? 0=selected page" ""'
Sei=Result
If Sei="ß" then call Ende1
If Sei=""|Sei=0 then Sei=Seite
If Datatype(Sei,'W')=1 then leave
else call oops
End
end
s=Sei-Seiten
Do a=1 to s
InsertPageBreak
End
If ba=2 then View 20
Do i=1 TO Anzahl
Paste
CurrentObject
ObjectID=Result
a=x+(Hor*i)
b=y+(Ver*i)
Winkel=Dreh+Dre*i
If Typ=2|Typ=3 then;do
w=wl+(Hor*i)
h=hl+(Ver*i)
Sei=Seite
End
SetObjectCoords ObjectID Sei a b w h
SetObjectRotation ObjectID Winkel
If Gruppe=true then Ungroup
End
End
Redraw
Call WH
'ShowMessage 2 1 "Thanks for using." "" "" "@-`-" "Please" ":-))"'
Exit
ENDE:
Call WH
'ShowMessage 1 1 "Incorrect number of copies..." "A B O R T" "" "Okay" "" ""'
EXIT
ENDE1:
Call WH
'ShowMessage 1 1 "You have cancelled..." "© Heiko Schröder" "http://yi.com/home/SchroederHeiko" "Okay" "" ""'
EXIT
SYNTAX:
Call WH
'ShowMessage 1 1 "There was an error." "Error-identification you can find in »Ram:Error«" "" "Okay" "" ""'
address "REXX"
Open("F","Ram:Error","W")
write ("F","ATTENTION! FW_MEf V1.5e-Error")
write ("F",'Error in line' SIGL ':' ERRORTEXT(RC))
write ("F",'Please report the author. » s93324@fh-telekom-leipzig.de «'||R||R)
Close ("F")
EXIT
BREAK_C:
Call WH
'ShowMessage 1 1 "Macro-Break..." "" "" "I know..." "" ""'
EXIT
WH:
If ba=2 then;do
GoToPage Sei
View Zoom
sizewindow width height
End
If Punkt="Comma" then DocItemPrefs DECIMAL Comma
Return
Zaehlen:
If ID~=Objekt.1 then;do
nr=nr+1
Objekt.0=nr;Objekt.nr=ID
End
Return
oops:
'ShowMessage 1 1 "Input error!" "" "" "Okay" "" ""'
return
oops1:
'ShowMessage 1 1 "Input error!" "Please use (.) !" "" "Okay" "" ""'
return